home *** CD-ROM | disk | FTP | other *** search
- on enterFrame
- global decouvrirMenu
- set ActiveStartspr to 3
- set Decouvrir to ActiveStartspr
- set startBalls to 4
- set reseauxBall to startBalls
- set supportsPhysiquesBall to startBalls + 1
- set genealogieBall to startBalls + 2
- set convergenceMediasBall to startBalls + 3
- set inforouteChezVousBall to startBalls + 4
- set servicesReseauxBall to startBalls + 5
- set revolutionNumeriqueBall to startBalls + 6
- set ro to rollOver()
- case ro of
- Decouvrir:
- go(the frame)
- reseauxBall:
- go("reseauxOpen")
- supportsPhysiquesBall:
- go("supportsPhysiquesOpen")
- genealogieBall:
- go("genealogieOpen")
- convergenceMediasBall:
- go("convergenceMediasOpen")
- inforouteChezVousBall:
- go("inforouteChezVousOpen")
- servicesReseauxBall:
- go("servicesReseauxOpen")
- revolutionNumeriqueBall:
- go("revolutionNumeriqueOpen")
- otherwise:
- go("decouvrirClose")
- end case
- end
-
- on exitFrame
- go(the frame)
- end
-